home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / tugi / tug.tug < prev    next >
Text File  |  1991-10-18  |  6KB  |  240 lines
  1. TUGi_macro(v1.0)
  2. sample_01()
  3. {
  4.  
  5.     /*******************************************/
  6.     /**  １つ目、\CCPM\GRAPHICS\以下のデータ  **/
  7.     /*******************************************/
  8.  
  9.     /* 頑張ってるねぇ(^_^)又今度会おうねぇ(^^;      */
  10.     /* ううっ(^^;ＴＵＧｉぢゃＴｉｆｆＶ５．０の圧縮 */
  11.     /* はサポートしてねぇから(^^;表示できん(^_^;)   */
  12.     /*                                       （魚） */
  13.  
  14.     /* 兄ちゃんはホントに顔がでかい・・・広いねぇ(^^;（ちょ） */
  15.  
  16.     Screen(3);
  17.     cls(1);
  18.     paletteset();
  19.     wind_init();
  20.     wrtstr(
  21.         "    えっと・・(^^;\CCPM\GRAPHICS\以下のデータを",
  22.         "    表示します。  サ－クルＣＣＰＭの皆様です～♪",
  23.         "                      (^_^)"
  24.         " "
  25.         "        この画像データを表示しますか？",
  26.         " "
  27.     );
  28.     wind_close();
  29.  
  30.     Question(
  31.         Graph_View(
  32.             "Q:\CCPM\GRAPHICS\GAISEN_S.P25",
  33.             "Q:\CCPM\GRAPHICS\SURFER.P25",
  34.             "Q:\CCPM\GRAPHICS\AI_01.TIF",
  35.             "Q:\CCPM\GRAPHICS\AI_02.TIF",
  36.             "Q:\CCPM\GRAPHICS\AI_03.TIF",
  37.             "Q:\CCPM\GRAPHICS\AI_04.TIF",
  38.             "Q:\CCPM\GRAPHICS\AI_05.TIF",
  39.             "Q:\CCPM\GRAPHICS\AI_06.TIF",
  40.             "Q:\CCPM\GRAPHICS\AI_10.TIF",
  41.             "Q:\CCPM\GRAPHICS\ANGEL.TIF",
  42.             "Q:\CCPM\GRAPHICS\YUCCA_01.TIF",
  43.             "Q:\CCPM\GRAPHICS\YUCCA_02.TIF",
  44.             "Q:\CCPM\GRAPHICS\YUCCA_03.TIF",
  45.             "Q:\CCPM\GRAPHICS\AKIKO.TIF"
  46.         );
  47.     );
  48.  
  49.  
  50.     /***************************************************/
  51.     /**  ２つ目、\CFC\GEARWARE\CHAKASHI\以下のデータ  **/
  52.     /***************************************************/
  53.  
  54.     Screen(3);
  55.     cls(1);
  56.     paletteset();
  57.     wind_init();
  58.     wrtstr(
  59.         "  次に、\CFC\GEARWARE\CHAKASHI\以下のデータを",
  60.         "  表示します。  サークルＣＦＣさんの作品ですね♪",
  61.         "                    (^_^)"
  62.         "  けど・・・本当はＧＥＡＲ用のデータなので(^^;",
  63.         "  ＧＥＡＲで楽しみましょうねっ♪",
  64.         "    この画像データを表示しますか？",
  65.         " "
  66.     );
  67.     wind_close();
  68.  
  69.     Question(
  70.         Graph_View(
  71.             Q:\CFC\GEARWARE\CHAKASHI\0.TIF
  72.             Q:\CFC\GEARWARE\CHAKASHI\1.TIF
  73.             Q:\CFC\GEARWARE\CHAKASHI\2.TIF
  74.             Q:\CFC\GEARWARE\CHAKASHI\3.TIF
  75.             Q:\CFC\GEARWARE\CHAKASHI\4.TIF
  76.             Q:\CFC\GEARWARE\CHAKASHI\5.TIF
  77.             Q:\CFC\GEARWARE\CHAKASHI\6.TIF
  78.             Q:\CFC\GEARWARE\CHAKASHI\7.TIF
  79.             Q:\CFC\GEARWARE\CHAKASHI\8.TIF
  80.             Q:\CFC\GEARWARE\CHAKASHI\9.TIF
  81.             Q:\CFC\GEARWARE\CHAKASHI\CHAKASHI.TIF
  82.             Q:\CFC\GEARWARE\CHAKASHI\CHEK_A.TIF
  83.             Q:\CFC\GEARWARE\CHAKASHI\CHEK_B.TIF
  84.             Q:\CFC\GEARWARE\CHAKASHI\CHEK_C.TIF
  85.             Q:\CFC\GEARWARE\CHAKASHI\CHEK_D.TIF
  86.             Q:\CFC\GEARWARE\CHAKASHI\CHEK_E.TIF
  87.             Q:\CFC\GEARWARE\CHAKASHI\CONTENTS.TIF
  88.             Q:\CFC\GEARWARE\CHAKASHI\DUMMY.TIF
  89.             Q:\CFC\GEARWARE\CHAKASHI\KEISAN.TIF
  90.             Q:\CFC\GEARWARE\CHAKASHI\TITLE.TIF
  91.         );
  92.     );
  93.  
  94.  
  95.     /***************************************/
  96.     /**  ３つ目っ！、\KXC\以下のデータっ  **/
  97.     /****************************************/
  98.  
  99.     /* 今回はフリコレ４参加作品が少なくてどーもです(^_^;)           */
  100.     /* そーです(^_^;)全て私が悪いのです(^_^;)                       */
  101.     /* 次回はリキ入れて(^^;皆さんから作品を募集させて頂きます(^^;;; */
  102.     /*                                                       （魚） */
  103.  
  104.     /* ・・・そん時にもマクロ作ることになるのだろ～か？(^^;(^^;（ちょ） */
  105.  
  106.     Screen(3);
  107.     cls(1);
  108.     paletteset();
  109.     wind_init();
  110.     wrtstr(
  111.         "      次に、\KXC\以下のデータを表示します。",
  112.         "        サークルＫＸＣさんの作品です",
  113.         "                    (^_^)"
  114.         "      ちょっと枚数が多くて、５１枚ありますよっ"
  115.         " "
  116.         "        この画像データを表示しますか？",
  117.         " "
  118.     );
  119.     wind_close();
  120.  
  121.     Question(
  122.         Graph_View(
  123.             Q:\KXC\TOWNS_OS\NRDB\BOX1.TK3
  124.             Q:\KXC\TOWNS_OS\NRDB\DA4.TK3
  125.             Q:\KXC\TOWNS_OS\NRDB\DX5.TK3
  126.             Q:\KXC\TOWNS_OS\NRDB\OTAMA.TK3
  127.             Q:\KXC\TOWNS_OS\NRDB\SANKAKU1.TK3
  128.             Q:\KXC\GRAPHICS\BEAR\NAO2.TK4
  129.             Q:\KXC\GRAPHICS\BEAR\NAO3.TK4
  130.             Q:\KXC\GRAPHICS\BEAR\BEAR1.TK4
  131.             Q:\KXC\GRAPHICS\BEAR\KAGAMI.TK4
  132.             Q:\KXC\GRAPHICS\BEAR\KAO.TK4
  133.             Q:\KXC\GRAPHICS\BEAR\KILLYOU.TK4
  134.             Q:\KXC\GRAPHICS\BEAR\NAO1.TK4
  135.             Q:\KXC\GRAPHICS\BEAR\OBJ.TK4
  136.             Q:\KXC\GRAPHICS\BEAR\BEAR6.TK4
  137.             Q:\KXC\GRAPHICS\ERIAS\MAHOU.P25
  138.             Q:\KXC\GRAPHICS\KGB_YAMA\Y_KGB_1.P25
  139.             Q:\KXC\GRAPHICS\KGB_YAMA\Y_KGB_2.P25
  140.             Q:\KXC\GRAPHICS\TK4_GRP\F1.TK4
  141.             Q:\KXC\GRAPHICS\TK4_GRP\F2.TK4
  142.             Q:\KXC\GRAPHICS\TK4_GRP\HARUKA.TK4
  143.             Q:\KXC\GRAPHICS\TK4_GRP\CRX_0102.TK4
  144.             Q:\KXC\GRAPHICS\TK4_GRP\CRX_1022.TK4
  145.             Q:\KXC\GRAPHICS\TK4_GRP\CRX_2303.TK4
  146.             Q:\KXC\GRAPHICS\TK4_GRP\Y_KGB_1.TK4
  147.             Q:\KXC\GRAPHICS\TK4_GRP\DX1.TK4
  148.             Q:\KXC\GRAPHICS\TK4_GRP\DX2.TK4
  149.             Q:\KXC\GRAPHICS\TK4_GRP\DX3.TK4
  150.             Q:\KXC\GRAPHICS\TK4_GRP\DX4.TK4
  151.             Q:\KXC\GRAPHICS\TK4_GRP\RAY1DN.TK4
  152.             Q:\KXC\GRAPHICS\TK4_GRP\RAY2DN.TK4
  153.             Q:\KXC\GRAPHICS\RX7\GRASS.TK4
  154.             Q:\KXC\GRAPHICS\AKI\NP1.TK4
  155.             Q:\KXC\GRAPHICS\AKI\NP2.TK4
  156.             Q:\KXC\GRAPHICS\AKI\P1.TK4
  157.             Q:\KXC\GRAPHICS\AKI\P2.TK4
  158.             Q:\KXC\GRAPHICS\AKI\P3.TK4
  159.             Q:\KXC\GRAPHICS\AKI\G1.TK4
  160.             Q:\KXC\GRAPHICS\AKI\G2.TK4
  161.             Q:\KXC\GRAPHICS\AKI\G3.TK4
  162.             Q:\KXC\GRAPHICS\AKI\TOWNS.TK4
  163.             Q:\KXC\GRAPHICS\AKI\P01.TK4
  164.             Q:\KXC\GRAPHICS\AKI\P02.TK4
  165.             Q:\KXC\GRAPHICS\AKI\P03.TK4
  166.             Q:\KXC\GRAPHICS\AKI\P04.TK4
  167.             Q:\KXC\GRAPHICS\AKI2\N5.GIF
  168.             Q:\KXC\GRAPHICS\AKI2\N6.GIF
  169.             Q:\KXC\GRAPHICS\AKI2\N2.TK4
  170.             Q:\KXC\GRAPHICS\AKI2\N4.TK4
  171.             Q:\KXC\GRAPHICS\AKI2\N3.TK4
  172.             Q:\KXC\GRAPHICS\AKI2\N1.TK4
  173.         );
  174.     );
  175.  
  176.     /***************************************/
  177.     /**  ４つ目っ！、\FAIRY\以下のデータっ**/
  178.     /****************************************/
  179.  
  180.     /* をっと(^^;頑張ってますねぇ電子妖精さん率いる  */
  181.     /* フェアリナーサ  う～む期待期待(^_^)           */
  182.  
  183.     /* ＲＴＣにも来てくださいねっ♪(^^;　（ちょ）    */
  184.  
  185.     Screen(3);
  186.     cls(1);
  187.     paletteset();
  188.     wind_init();
  189.     wrtstr(
  190.         "  次に、\FAIRY\CG\以下のデータを表示します。",
  191.         "  サークルフェアリナーサさんの作品です",
  192.         "                    (^_^)"
  193.         "              １１枚ありますよっ"
  194.         " "
  195.         "      この画像データを表示しますか？",
  196.         " "
  197.     );
  198.     wind_close();
  199.  
  200.     Question(
  201.         Graph_View(
  202.             Q:\FAIRY_N\CG\BUCHI\BU16.PIC
  203.             Q:\FAIRY_N\CG\BUCHI\BU17.PIC
  204.             Q:\FAIRY_N\CG\BUCHI\BU18.PIC
  205.             Q:\FAIRY_N\CG\BUCHI\BU19.PIC
  206.             Q:\FAIRY_N\CG\BUCHI\BU20.PIC
  207.             Q:\FAIRY_N\CG\MAITAN\MAI16A.TIF
  208.             Q:\FAIRY_N\CG\MAITAN\MAI256A.TIF
  209.             Q:\FAIRY_N\CG\OSAWA\KAZUKI4M.TIF
  210.             Q:\FAIRY_N\CG\OSAWA\KAZUKI6.TIF
  211.             Q:\FAIRY_N\CG\THARA\TNEKO3.TIF
  212.             Q:\FAIRY_N\CG\THARA\FM.PIC
  213.         );
  214.     );
  215.  
  216.     /* もっかい画面を初期化する訳ぢゃ(^_^;) */
  217.     Screen(3);
  218.     cls(1);
  219.     paletteset();
  220.  
  221.     /****************/
  222.     /**  お終いっ  **/
  223.     /****************/
  224.  
  225.     Screen(3);
  226.     cls(1);
  227.     paletteset();
  228.     wind_init();
  229.     wrtstr(
  230.         " ",
  231.         " ",
  232.         "   他のデータも見てみますか？"
  233.     );
  234.     wind_close();
  235.     Question(
  236.         MAIN2SB2.TUG
  237.     );
  238.     END.TUG
  239. }
  240.